home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / heat / sndplay.cfg < prev    next >
Text File  |  1991-10-18  |  1KB  |  60 lines
  1. /*********************************************************************
  2. /*
  3. /*  音声データファイル再生用，外部マクロコマンド
  4. /*
  5. /*  TABSIZE = 4
  6. /*
  7. /*---【MEMO】---------------------------------------------------------
  8. /*
  9. /*    　再生には，音声データのファイルサイズ分のフリーメモリが必要
  10. /*
  11. /*
  12. main {
  13.     wind_close()                    /* ウィンドゥ消去
  14.     wind_init()                        /* ウィンドゥ初期化
  15.     filename = ""
  16.     file_select("filename","SND データ再生",-1, "", "*.snd",0)
  17.     if ( VAL ! 0 )                    /* キャンセル
  18.     {    return
  19.     }
  20.     echo("\nSOUND FILE:\(filename)\n")    /* 音声データファイル名表示
  21.  
  22.     SND("pcm_abort")
  23.     SND("pcm_sound_delete",-1)
  24.     SND("pcm_mode_set",1)
  25.     if ( VAL ! 0 )
  26.     {    echo("\nWAVE MEMORY ERRRO!!\n");
  27.         wait(5)
  28.         wind_close()
  29.         return
  30.     }
  31.  
  32.     SND("pan_set",71,64)                /* パンポット設定
  33.     SND("pcm_load",filename)            /* 音声データ読み込み
  34.     if ( VAL < 0 )
  35.     {    echo("\nPCM DATA LOAD ERRRO!!\n");
  36.         wait(5)
  37.         wind_close()
  38.         return
  39.     }
  40.     echo("\n音程 : \(PCM_NOTE)\n")        /* ｵﾘｼﾞﾅﾙ音程 表示
  41.     mute_stat()                            /* ﾐｭｰﾄ状態を調べる
  42.     expr("MUTE","\(VAL)|3")
  43.     SND("elevol_mute"    ,MUTE)
  44.     SND("pcm_play",71,PCM_NOTE,127)        /* 71 ＝ 64 + 7(ch)
  45.     if ( VAL ! 0 )
  46.     {    echo("\nPCM PLAY ERRRO!!\n");
  47.         wait(5)
  48.         wind_close()
  49.         return
  50.     }
  51.     SND("pcm_status",71)
  52.     if ( VAL ! 0 )
  53.     {    echo("\nNOW PLAYING\n")
  54.     }
  55.     mos_wait("x","y",48)                /* マウスボタン入力待ち
  56.     SND("pcm_abort")
  57.     wind_close()
  58. }
  59.  
  60.